home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE22 / TIPTRIX / LISTING4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-05-19  |  707 b   |  24 lines
  1. procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  2.   var AllowChange: Boolean);
  3. var
  4.   CurrentTab, NextTab: TNotebookTabs;
  5. begin
  6.   CurrentTab := GetNotebookPage( TabbedNotebook1.PageIndex );
  7.   NextTab := GetNotebookPage( NewTab );
  8.  
  9.   case CurrentTab of
  10.     ntInit          : { Init page specific processing }
  11.     ntSettings      : { Settings page specific processing }
  12.     ntGeneral       : { General page specific processing }
  13.     ntMiscellaneous : { Miscellaneous page specific processing }
  14.   end { case CurrentTab };
  15.  
  16.   case NextTab of
  17.     ntInit          : { Init page specific processing...}
  18.  
  19.     { I think you get the idea }
  20.  
  21.   end { case NextTab };
  22. end;
  23.  
  24.